home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00197_MM Jurassic Help.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  496 b   |  19 lines
  1. on jurassicScroll n
  2.   set mem = the number of member "JurassicTxt1"
  3.   set altura = 0
  4.   repeat with i = 0 to 5
  5.     set h = 16 * the lineCount of member (mem+i) - 224
  6.     if n > altura + h + 224 or altura > n + 224 then
  7.       set the visibility of sprite 21 + i to false
  8.     else
  9.       set the scrollTop of member (mem+i) to n - altura
  10.       set the visibility of sprite 21 + i to true
  11.     end if
  12.     set altura = altura + h
  13.   end repeat
  14.   
  15.   global gJurassicScroll
  16.   set gJurassicScroll = n
  17. end
  18.  
  19.